﻿Public Class frmThemNhanVien
    Event ThemThanhCongNhanVien()
    Private newNhanvien As New tbNhanVien
    Private luuTamNhanVien As New tbNhanVien
    Private Sub frmThemNhanVien_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode = Keys.F2 Then
            btnThem_Click(Nothing, Nothing)
        ElseIf e.KeyCode = Keys.F3 Then
            Me.Close()
        End If
    End Sub

    Private Sub frmThemNhanVien_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.KeyPreview = True
        CtrlNhanVien1.NhanVien = newNhanvien
    End Sub

    Private Sub btnThem_Click(sender As Object, e As EventArgs) Handles btnThem.Click
        CtrlNhanVien1.KryptonLabel1.Focus()
        dt.Refresh(Data.Linq.RefreshMode.OverwriteCurrentValues, dt.tbNhanViens)
        If CtrlNhanVien1.txtTenDangNhap.Text = "" Then
            ComponentFactory.Krypton.Toolkit.KryptonMessageBox.Show("Tên đăng nhập không được để trống!", "Thông Báo", _
                                                                     MessageBoxButtons.OK, MessageBoxIcon.Information)
            CtrlNhanVien1.txtTenDangNhap.Focus()
            Exit Sub
        End If

        If CtrlNhanVien1.txtMatKhau.Text = "" Then
            ComponentFactory.Krypton.Toolkit.KryptonMessageBox.Show("Mật khẩu không được để trống!", "Thông Báo", _
                                                                     MessageBoxButtons.OK, MessageBoxIcon.Information)
            CtrlNhanVien1.txtMatKhau.Focus()
            Exit Sub
        End If

        If dt.tbNhanViens.Where(Function(s) s.TenDangNhap = CtrlNhanVien1.txtTenDangNhap.Text).Count > 0 Then
            ComponentFactory.Krypton.Toolkit.KryptonMessageBox.Show("Tài khoản đã tồn tại trong hệ thống!", "Thông Báo", _
                                                                     MessageBoxButtons.OK, MessageBoxIcon.Information)
            CtrlNhanVien1.txtTenDangNhap.Focus()
            Exit Sub
        End If

        dt.tbNhanViens.InsertOnSubmit(newNhanvien)
        dt.SubmitChanges()
        RaiseEvent ThemThanhCongNhanVien()
        If chkCopyNhanVien.Checked Then
            luuTamNhanVien = newNhanvien
        End If
        newNhanvien = New tbNhanVien

        If chkCopyNhanVien.Checked Then
            newNhanvien.tbCuaHang = luuTamNhanVien.tbCuaHang
            newNhanvien.TenDangNhap = luuTamNhanVien.TenDangNhap
            newNhanvien.MatKhau = luuTamNhanVien.MatKhau
            newNhanvien.TenNhanVien = luuTamNhanVien.TenNhanVien
            newNhanvien.ChucVu = luuTamNhanVien.ChucVu
            newNhanvien.SuDungChung = luuTamNhanVien.SuDungChung
            newNhanvien.HopLe = luuTamNhanVien.HopLe
        End If
        CtrlNhanVien1.bsNhanVien.DataSource = newNhanvien
        CtrlNhanVien1.txtTenDangNhap.Focus()
        CtrlNhanVien1.txtTenDangNhap.Select(0, CtrlNhanVien1.txtTenDangNhap.Text.Length)
    End Sub

    Private Sub btnDong_Click(sender As Object, e As EventArgs) Handles btnDong.Click
        Me.Close()
    End Sub
End Class